home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / cnet / SE_MultiRead.lha / MultiRead.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-24  |  1KB  |  34 lines
  1. /* Multi-Read File */             
  2. bufferflush;options results
  3. tr=transmit;se=sendstring;sf=sendfile;pr=prompt;gu=getuser;gc=getchar
  4. gu 47;Local=result;gu 1302307;cmd=result
  5.  
  6. /*Choose the default Path for the Requestor when used in local mode     */
  7. /*This path must end in a ":" or a "/"!!                                */
  8.  
  9. path="CNet:"
  10.  
  11.   if cmd="" then signal select
  12.   else do
  13.     se "*0"cmd"}"
  14.     tr "cfPress cdReturncf.....g0f1"
  15.     exit
  16.   end    
  17.  
  18. Select:
  19.  If Local~=-1 then do
  20.       bbscommand !!rf 
  21.     exit
  22.   end
  23.   else do
  24.     if ~ exists("libs:rexxreqtools.library") then Do ; Transmit "Can't find rexxreqtools.library, aborting.." ; Exit ; End
  25.     if ~ show('L',"rexxreqtools.library") then if ~addlib('rexxreqtools.library',0,-30,0) then exit
  26.       loc=showlist('l','intuition.library',,'a')
  27.       adr=c2d(next(loc,60),4)
  28.   end
  29.   call rtfilerequest(path,,"Select that file.....",,"rtfi_flags=freqf_multiselect rt_screen="||adr,file)
  30.     if file == 1  then do i=1 to file.count
  31.       se "*0"file.i"}"
  32.       tr "cfPress cdReturncf.....g0f1"
  33.     end
  34.   exit